home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / Tickle-4.0 (tcl) / tcl / extend / tclsrc / TclInit.tcl < prev    next >
Encoding:
Text File  |  1993-10-26  |  1.1 KB  |  37 lines  |  [TEXT/MPS ]
  1. #-----------------------------------------------------------------------------
  2. # TclInit.tcl -- Extended Tcl initialization.
  3. #-----------------------------------------------------------------------------
  4. # $Id: TclInit.tcl,v 2.8 1993/08/31 23:03:20 markd Exp $
  5. #-----------------------------------------------------------------------------
  6.  
  7. #
  8. # Unknown command trap handler.
  9. #
  10. proc unknown {name args} {
  11.     if [auto_load $name] {
  12.         return [uplevel 1 $name $args]
  13.     }
  14.     if {([info proc tclx_unknown2] == "") && ![auto_load tclx_unknown2]} {
  15.         error "can't find tclx_unknown2 on auto_path"
  16.     }
  17.     return [tclx_unknown2 [concat $name $args]]
  18. }
  19.  
  20. set auto_index(buildpackageindex) {source [info library]/buildidx.tcl}
  21.  
  22. # == Put any code you want all Tcl programs to include here. ==
  23.  
  24. if !$tcl_interactive return
  25.  
  26. # == Interactive Tcl session initialization ==
  27.  
  28. if ![info exists tcl_prompt1] {
  29.     set tcl_prompt1 {global argv0; return [file tail $argv0]>}
  30. }
  31. if ![info exists tcl_prompt2] {
  32.     set tcl_prompt2 {return =>}
  33. }
  34.  
  35. if [file readable ~/.tclrc] {source ~/.tclrc}
  36.  
  37.